<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage" Language="VB" %>
<%@ Register TagPrefix="mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile" %>

<mobile:Form runat="server" id="first" Title="First">
   <mobile:Label runat="server" id="result">
      Button not pressed.
   </mobile:Label>
   <mobile:Command runat="server" id="button1" Text="Press"
                   SoftkeyLabel="Press" OnClick="button1_OnClick"/>
</mobile:Form>

<script runat="server" Language="VB">

Sub button1_OnClick(sender As Object, e As System.EventArgs)
   result.Text = "Button pressed!"
End Sub

</script>

